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NOTE 

The various elements of ESPOL are dis- 
scussed in paragraphs labeled Syntax, 
Semantics , and Pragmatics , immediately 
following each pertinent subject head- 
ing. To avoid needless repetition, 
these subordinate headings have been 
omitted from the Table of Contents. 
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INTRODUCTION 

The B 6500 Executive System Problem Oriented Language (ESPOL) is 
provided primarily for the purpose of writing the B 6500 Master 
Control Program. 

This document is intended to be a reference manual. Its purpose 
is to describe exactly the structure of the language. Therefore, 
the manual is directed toward an audience somewhat conversant in 
the language, rather than the uninitiated. The use of this docu- 
ment presupposes knowledge of B 65OO Extended ALGOL and the 
operational characters of the B 6500. 
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SECTION 1 
SYNTAX CONVENTIONS 

GENERAL . 

This section provides a formal discussion of the method used to 
define ESPOL. The method is rigorous so that the language might 
be as free from ambiguity as possible. 

METALINGUISTIC SYMBOLS . 

A metalanguage is a language used to describe other languages. A 
metalinguistic symbol is a symbol used in a metalanguage to define 
the syntax of a language. The following metalinguistic symbols 
are used in this manual: 

a. () Left and right broken brackets are used to contain one 
or more characters representing a metalinguistic variable 
whose value is given by a metalinguistic formula. 

b. ::= The symbol ::= means "is defined as." It separates 
the metalinguistic variable on the left of a metalinguis- 
tic formula from the definition of the metalinguistic 
variable . 

c. I The symbol | means "or." It separates alternate defi- 
nitions of a metalinguistic variable. 

d. {} Braces are used to enclose English language definitions 
when it is impossible or impractical to use a metalinguis- 
tic formula. 

METALINGUISTIC FORMULAS . 

Metalinguistic symbols are used in forming a metalinguistic formula. 
A metalinguistic formula is a rule which produces an allowable 
sequence of characters and/or symbols. The formulas are used to 
define the syntax of the ESPOL language. The entire set of such 
formulas developed in this manual defines the B 6500 ESPOL language. 
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Any mark or symbol in a metalinguistic formula, which is not one of 
the metalinguistic symbols, denotes itself. The juxtaposition of 
metalinguistic variables and/or symbols in a metalinguistic formula 
denotes juxtaposition of those elements in the construct indicated. 

An example of a metalinguistic formula is: 

(identifier) ::= (letter) | (identifier) (letter) | 
(identifier) (digit) 

This metalinguistic formula is read: an identifier is defined as 
a letter, or an identifier followed by a letter, or an identifier 
followed by a digit. 

The metalinguistic formula given above defines a recursive relation- 
ship by which a construct called an identifier may be formed. That 
is, evaluation of the formula shows that an identifier begins with 
a letter. The letter may stand alone, or may be followed by any 
mixture of letters and digits. 

METALINGUISTIC TERMS . 

The following terms are used frequently in this manual: 

a. Syntax - the systematic arrangement of words. 

b. Semantics - the meaning of a word or arrangements of words. 
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Value - an ordered set of numbers (special case - a single 
number) , or an ordered set of logical values (special case 
- a single logical value). 

d. Entity - a thing that has real and individual existence 
(in this manual, variables, arrays, procedures, labels, 
etc . ) 

e. Quantity - an entity which assumes arithmetic values. 

f. Process - an algorithm in some state of execution. 

g. Scope - the scope of an entity is the block in which the 
entity is declared. All entities must be declared before 
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they are referenced in any manner with the exception of 
labels used under certain circumstances. 

h. Recursive - circular usage. 

CHARACTER SET . 

The character set used in the B 6500 ESPOL language is 

defined as follows: 

SYNTAX . 

(letter) ::= A | B | C | D | E | F | G | H | I | J | K | L | M 

|n|o|p|q|r|s|t|u|v|w|x|y|z 

(digit) ::=0|l|2|3|4|5|6|7|8|9 

(special character) ::=.|»|[|]|(|)|+|-|/| 

<l>l<l>l=l/hUUI*l#IH : I 

; I $ 

(string character) ::= (letter) | (digit) | (special character) 
[ (single space) 

(string bracket character) ::= " 

(single space) ::= {one horizontal blank position} 

(space) : := (single space) | (space) (single space) 

(invalid character) ::= ? 

(character) : := (string character) | (string bracket character) 
I (invalid character) 

SEMANTICS . 

The Burroughs Common Language (BCL) character set consists of Gh 

characters: letters, digits, special characters, the space, the 

string bracket character, and the invalid character. 

The invalid character is not used in the language. It may be used, 
however, as a character in an output string. 
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SECTION 2 
BASIC SYMBOLS 



GENERAL. 



A symbol is a mark or a contiguous set of marks that represents an 

object, quality, process, quantity, etc. Basic symbols are symbols 

whose meaning is given as absolute within the context of the ESPOL 
language . 

SYNTAX. 

The syntax for (basic symbol) is: 

(basic symbol) ::= (letter) | (digit) | (logical value) | 
(delimiter) | (empty) 

(logical value) ::= TRUE J FALSE 

(empty) ::= {a null string of characters} 

(delimiter) ::= (operator) j (separator) | (bracket) | 
(declarator) | (specif icator) 

(operator) ::= (arithmetic operator) | (relational operator) | 
(logical operator) | (sequential operator) | 
(concatenate operator) | (replacement operator) 

(arithmetic operator) ::= + | - | * | / | D i V | M0D | MULX 

(relational operator) ::= < | < | =j >| >| J. \ IS 

(logical operator) ::= EQV | IMP | OR | AND | NOT 

(sequential operator) ::= GO | TO | IF | THEN | ELSE | FOR | 
DO | CASE 

(concatenate operator) ::= & 

(replacement operator) ::= — j : = I *~* 
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(separator) s := , | . | ® . ! : | 5 I (space) | STEP | UNTIL 
| WHILE ! COMMENT | IN | IS | NULL | OF | BY 

(space) ::= (single space) | (space) ( single space) 

(single space) : := {one horizontal blank position} 

(bracket) : : = ( | ) | [ | ] I " I BEGIN | END | # 

(declarator) : : = OWN | BOOLEAN | INTEGER | REAL | ARRAY | 

LABEL | FORWARD | PROCEDURE | FIELD | LAYOUT | QUEUE 
| DEFINE | EVENT | POINTER | DOUBLE | REFERENCE | 
PICTURE | USING | SAVE j MONITOR | ON j WORD 

(specif icator) ::= VALUE 

SEMANTICS. 

Only upper-case letters are permitted. Individual letters do not 

have individual meanings. 

An important function of delimiters is to separate the various 
entities that make up a program. Delimiters have a fixed meaning. 
If this meaning is not obvious, it is given at the appropriate 
place in this manual. 

A space must separate any of the following: 

a. Multicharacter Delimiter. 

b. Logical Value. 

c. Identifier. 

d. Unsigned Number. 

The phrase "reserved words" is used in this manual to denote the 
set of single-word delimiters. Other than noted above, the use of 
the space is discretionary. 
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SECTION 3 
BASIC COMPONENTS 



GENERAL . 



SYNTAX. 

The syntax for (basic component) is: 

(basic component) ::= (identifier) | (number) j (string) 

SEMANTICS. 

Basic components are the most primitive structures of the ESPOL 
language . 

IDENTIFIERS . 
SYNTAX. 

(identifier) ::= (letter) J (identifier) (letter) | 
(identifier) (digit) 

Examples : 

X 

A5 

ID 

XI 

G76D3 

NOTHINGTODO 

ARITHMETICMEAN 

SEMATICS. 

Identifiers have no absolute meaning. They are used to name labels, 
variables, arrays, procedures, etc. 

A reserved word may not be used as an identifier. 

The maximum permissable identifier length is to be specified. 

No space may appear within an identifier. 
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The same identifier cannot be used to denote two different entities 
simultaneously. 

NUMBERS . 

SYNTAX 

The syntax for (number) is : 

(number) ::= (sign) (unsigned number) 

(unsigned number) ::= (decimal number) (exponent part) j 
(decimal number) | (octal number) 

(decimal number) ::= (unsigned integer) (decimal fraction) | 
(unsigned integer) j (decimal fraction) 

(integer) ::= (sign) (unsigned integer) 

(sign) : := (empty) | + | - 

(unsigned integer) ::= (digit) | (unsigned integer) (digit) 

(exponent part) ::= @ (integer) | @@ (integer) 

(decimal fraction) ::= . (unsigned integer) 

(octal number) ::= @ (octal constant) 

(octal constant) ::= (octal digit) | (octal constant) (octal 

digit) 
(octal digit) ::=0|l|2|3|^|5|6|7 



Examples : 








Unsigned numbers : 


Decimal numbers: 


Integers 


135^-5^3 


3.1^ 




+5k6 


@67 


37 




-62256 


l35h.5h@68 


.57 




+1 


1.23®73 


135^ 




-565 


27 


.5h6 




23 


l@-43 


135^. 


5^3 
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Unsigned integers: Exponent parts: Decimal Fractions: 

5 @68 # 5 

6 9 @-h6 ,^9 

8 @+5h #7 

73 @_8 .29 

@727 

@+63 

SEMANTICS . 

Numbers may be of two types: INTEGER or REAL. Integers are of type 
INTEGER; all other numbers are of type REAL (explicitly or implici- 
tly -- by default). 

The range of permissable real or integer values is to be specified. 

The exponent part is a scale factor expressed as an integeral power 
of 10. 

No space may appear within an unsigned number. 

An exponent part with a double @@ signifies an extended precision 
value . 

An octal number cannot have more than 16 octal digits. 

STRINGS. 

SYNTAX . 

The syntax for (string) is: 

(string) ::= (simple string) | (simple string) (string) 
(simple string) ::= (numeric string) | (alpha string) 

(numeric string) ::= (binary code) » (binary string) " | 
(quaternary code) « (quaternary string) " | 
(octal code) » (octal string) » | (hexadecimal code) 
" (hexadecimal string) " 

(alpha string) : := ( B CL code) « ( B CL string) " | (ASCII code) 

"(ASCII string) » | (EBCDIC code) » (EBCDIC string)" 
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(binary code) : := 1 | 10 | 12 | 13 | 1*1 16 | 17 | 18 | 120 
130 I l4o | 160 | 170 | 180 



(quaternary code) : : = 2 | 20 | 2k \ 26 | 28 | 2^0 | 260 | 280 
(octal code) ::= 3 | 30 | 36 | 360 
(hexadecimal code) : : = 4 | kO k8 \ 480 
(BCL code) ::= 6 | 60 | (empty) 
(ASCII code) : := 7 | 70 
(EBCDIC code) ::= 8 | 80 

(binary string) : := (binary character) | (binary string) 
(binary character) 

(binary character) ::= | 1 

(quaternary string) ::= (quaternary character) | 

(quaternary string) ( quaternary character) 
(quaternary character) ::= | 1 | 2 | 3 

(octal string) ::= (octal character) | (octal string) 
(octal character) 

(octal character) ::=OJl|2|3|*|5|6|7 

(hexadecimal string) ::= (hexadecimal character) | 

(hexadecimal string) (hexadecimal character) 

(hexadecimal character) ::=o|l|2|3|*|5|6|7 

9|a|b|c|d|e|f 

(ASCII string) ::= (BCL string) 
(EBCDIC string) ::= (BCL string) 

(BCL string) ::= " | (BCL character) | (BCL string) 
(BCL character) 

(BCL character) ::= (string character) 
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SEMANTICS . 

Strings may consist of: 

a. 1-bit characters (binary). 

b. 2-bit characters (quaternary). 

c. 3-bit characters (octal). 

d. 4-bit characters (hexadecimal). 

e. 6-bit characters (BCL) . 

f. 7-bit characters (ASCII, in 8-bit format). 

g. 8-bit characters (EBCDIC). 

The string code determines the interpretation of the characters 
between the quotes. It specifies the character set, and if the 
string has fewer than 48 bits, the justification of the string 
within the word which contains it. The first digit specifies 
the character set in which the source string is written. The 
next non-zero digit specifies the character size of the internal 
string created by the compiler. If no second size is specified, 
it is the same as the initial size. A trailing zero indicates 
that the string is left- justified within a word if it contains 
fewer than 48 bits. If no zero is present, the string is right- 
justified. 

An empty string code is treated as a code of 6 (right- justified 
BCL string). 

An ASCII or EBCDIC code may be used only with characters from the 
BCL character set. The compiler produces (internally) a string of 
8-bit characters which represent the same graphics as the given 
BCL characters. For characters which are not in the BCL character 
set, the string must be written as a hexadecimal string, where each 
pair of hexadecimal characters represents the internal code of one 
ASCII or EBCDIC character. 

The quote character may appear only at the beginning of a simple 
string. Strings with internal quotes must be broken into separate 
simple strings by the use of three quotes in succession. The last 
two quotes must be contiguous. 
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The maximum permissible length of a string depends upon the context 
in which the string is used. Pointer operations (Replace and String 
Compare), FILL statements, and list elements which consist of only 
a string may be represented by strings up to 256 48-bit words in 
length. 

Strings used as operands in expressions are limited to a length of 
48 bits. 

When a string is formed from simple strings of different character 
sizes, the following applies: 

a. The justification specified by each string code after the 
first is ignored. 

b. Every character in a string is aligned at a character 
boundary appropriate for that character's size. This may 
result in zero bits being inserted between simple strings. 
For example, 6"8" 4"8" produces 001000 001000. Note that 
two bits are inserted between the simple strings so that 
the 4"8" falls on a 4-bit character boundary. However, 
8"8" 4"8" requires no such alignment. 

c. When it is necessary for the compiler to know the length 
(in characters) of a string and the character size (e.g. , 
Replace and String Compare), the character size is the 
maximum character size of all the simple strings and the 
length is the smallest number of characters (of the max- 
imum character size) required to contain all the bits of 
the string. 
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SECTION k 
GENERAL COMPONENTS 

GENERAL . 

SYNTAX . 

The syntax for (general component) is: 

(general component) :: = (variable) j (item) | (value designator) 
SEMANTICS. 

General components are constituents of expressions. m principle, 
general components are less complex structures than expressions. 

Because the syntactic definition of general components contains 
expressions, the definition of expressions and general components 
is recursive. 

VARIABLES . 

SYNTAX . 

The syntax for (variable) is: 

(variable) ::= (simple variable) J (subscripted variable) 
(simple variable) ::= (identifier) 

(subscripted variable) ::= (array identifier) [(subscript list)] 
(array identifier) ::= (identifier) 

(subscript list) ::= (subscript) | (subscript list), (subscript) 
(subscript) ::= (arithmetic expression) 
Examples : 

Simple Variables: 

A 

ABSOLUTE 
ABS2 
EPSILON 
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DELTA 

A17 

ALPHAINFO 
BETA k 
Q 

Subscripted Variables: 

A[5] 
QTY[Q+7»VxN,Z] 

Q[7>2] 

A[5] 

a[ith] 

kronecker[ith+2 , jth-ith] 

maxq [if beta=30 then -2 else k+2] 

Subscript Lists: 

5 
7,2 

QV,9 

IF J THEN 1 ELSE P*Q+S 

ITH 

ITH + 2, JTH - ITH 

IF BETA=30 THEN-2 ELSE K+2 

SEMANTICS . 

A simple variable is an identifier used to reference some quantity. 

A subscripted variable is an array identifier and a subscript list. 
The array identifier refers to a set of values. An array identifier 
and a subscript list refers to a single value or a subset of values. 

The total number of subscripts in a subscript list must equal the 
number of dimensions given in the array declaration. 

Each subscript expression in a subscript list is evaluated from left- 
to -right . 
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If, upon evaluation, a subscript expression yields a value of type 
REAL, it is rounded automatically as follows: 

integral subscript value = ENTIER (value of subscript 
expression + 0.5) 

If the value of a subscript falls outside the bounds declared for 
that dimension, there is an INVALID INDEX error termination of 
the program. 

ITEMS. 

SYNTAX . 

The syntax for (item) is: 

(item) ::= (item identifier) (reference part) 
(item identifier) ::= (identifier) 

(reference part) ::= (empty) | [(subscript)] | 
@ ((reference expression)) 



Examples : 

PAND0RA@(IF MI*1>MI*2 THEN ZGLOT - f(a) ELSE REFERENCE ( B )) 
NIKE® (NULL) 

NERC@(lTEMNEXT*- REFERENCE (LOGUN) ) 
AGAM@(NEXTIN) 

FIRSTGO @ ¥AITCHANELQUE[CHANELNUMBER] 

NONCHAL® ( FORCENT ) 

FAOWST® ( REFERENCE ( A [ 2 , 1 ] ) ) 

gehrta@(f(a+b)) 

OHNO@(CASE (Z-Z+l) OF (Al ; B2 ; B3 ; Ck; 1,9)) ; 

SEMANTICS . 

An (item) provides a means to refer to a particular element of a 
queue entry. 

The (item identifier) behaves like a subscript to the (reference part). 
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The reference part should point to an area which has the form of 
an entry in the appropriate queue. 

a. A reference part of empty points to the same entry as the 
reference name of the queue. 

b. A reference part of [(subscript)] may only be used with 
an item identifier declared in a queue array declaration. 
It points to the same entry as (reference name) [(sub- 
script)] . 

VALUE DESIGNATOR . 

SYNTAX. 

The syntax for (value designator) is: 

(value designator) ::= (value array identifier) [(subscript 
list)] 

SEMANTICS . 

A value designator references a particular element of a value array. 

EVENT DESIGNATORS . 

SYNTAX. 

The syntax for (event designator) is: 

(event designator) ::= (event identifier) | (event item) | 
(event array identifier) [(subscript list)] | 
(event array item) [(subscript list)] 

(event item) : := (item) 
(event array item) ::= (item) 

SEMANTICS . 

An event designator designates an event quantity. 

The item identifier of an item used as an event item must be 
specified as an event. 
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The item identifier of an item used as an event array item must be 
specified as an event array. 

Examples : 

Event Designators: 

El 

E4[2] 

Simple Event Designators: 

E2 
XERXES 

Subscripted Event Designators: 

E4[2] 
ZEUS[2,3] 
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SECTION 5 
EXPRESSIONS 



GENERAL, 



SYNTAX . 

The syntax for (expression) is: 

(expression) ::= (arithmetic expression) | (Boolean expression) 
| (reference expression) | (pointer expression) | 
(word expression) | (array expression) 

SEMANTICS. 

An expression is a structure used to obtain a value or values. Ex- 
pressions are constituents of statements. 

ARITHMETIC EXPRESSIONS . 

SYNTAX. 

The syntax for (arithmetic expression) is as follows: 

(arithmetic expression) : := (simple arithmetic expression) j 
(arithmetic assignment) | (word expression) { 
(IF clause) (arithmetic expression) ELSE 
(arithmetic expression) 

(simple arithmetic expression) : := (simple arithmetic 

expression) (adding operator) (term) j (sign) (term) 

(arithmetic assignment) ::= (arithmetic variable) 

(replacement operator) (arithmetic expression) 

(adding operator) ::= + | - 

(term) : := (primary) | (term) (multiplying operator) (factor) 

(factor) ::= (primary) | (primary) ** (integer) 1 

(multiplying operator) ::= * | / j DIV j MOD | MULX 

(primary) ::= (base) & (layout) j (unsigned number) | 
(field designator) | (field operand) 



1. The exponentiation operator ** is defined for 
integer-constant exponents only. 
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(base) ::= (primary) 

(field designator) ::= (field operand) , (field identifier) 
(array primary) , (field identifier) 

(field operand) ::= (variable) | (function designator) j 
(value designator) | (arithmetic item) j 
((expression)) | (case head) ((expression 
list)) 

(arithmetic item) ::= (item) 

(layout) ::= (layout identifier) ((field value list)) 

(field value list) ::= (field value) | (field value list) , 
(field value) 

(field value) ::= (empty) | (expression) | * 
(expression list) ::= (expression list) , (expression) | 
(expression) 

(arithmetic variable) : := (variable) 

Examples . 

Arithmetic Expressions: 

3 

+3 

Q 

Q-V 

HO - (IF GONE THEN 2 ELSE Z/3 ) 

IF JOY THEN X ELSE 4+Q 

¥*U-Q(S+CU) 

IF Q>0 THEN S+3*Q/A ELSE Z*S+3*Q 

IF A<0 THEN U+V ELSE IF A*B> 17 THEN U/V ELSE IF Kjft 

THEN V/U 
0.57@12*A[N*(N-l)/2,0) 

Q*V*2 
P MOD 2 



5-2 



A[2, SIZ*2 DIV QUANT] «- FI BOOEX THEN Q-Q+l ELSE 4 

Simple Arithmetic Expressions: 
Q+V 
Q-V 
-Q 
3 

+3 
Q 

P MOD 2 
Y*3 
4*R DIV S 

A[l]-B[j]+5.3 

Terms : 

Q 

Q MOD V 

7.39^@-8 

SUM 

w[l+2,8] 

2*(X+Y) 

Y*3 

Q MOD V DIV 2 

Primaries : 
7 

J.K 
J 

Q & R 

VARINAME & LOOK (6, IF BOOEXP THEN Q-Q+l ELSE 2, AN[3,5]) 
2 & SEET (X-F(A+B), 12, VO ) & NAW (27, TRUE) 
@-72 
7 

O&CONCAT ( ) 
Q 
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Field Designators : 
SIGNIFY (X) . Z 
VARINAME . FIELDNAME 
FUNC(A,TRUE) .F6 
(X-ARITHEXP(27)+Q MOD 2).F7H 

Field Operands : 

CASE X-X+l OF (V, +27*F(Z ,7) ,ARY[ 2 ,BOOQ] ) 
Q 

tallyho(tfx) 
(q+r*z-t) 

Layouts : 

CHAS (Q+R*6, F(A)) 
GOT ( ZYGLOT , 7 ) 

SEMANTICS . 

An arithmetic expression defines a numeric value. 

A variable, value designator, or function designator used as a pri- 
mary in an arithmetic expression must be of an arithmetic type: 
INTEGER, REAL, or DOUBLE. 

Each expression in a field value list or expression list used in an 
arithmetic expression must be of an arithmetic type. 

The value of an arithmetic expression may be expressed in single or 
extended precision. 

a. The precision is extended if any variable, function des- 
ignator, or number is of type DOUBLE. 

b. The precision of a case expression value is the precision 
of the first expression of its expression list. If neces- 
sary, the other expressions of the expression list are 
adjusted to conform. 

c. The precision of the value of a conditional arithmetic 
expression is the precision of the arithmetic expression 
preceding the ELSE. 
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d. Extended precision values may not be used in a field desig- 
nator or as a base. 

The operator DIV denotes integer division. 

Y DIV Z = SIGN(Y/z)xENTIER(ABS(Y/z)) 
The operator MOD denotes remainder division. 

Y MOD Z = Y - (Zx(SIGN(y/z)xENTTER(ABS(x/z)))) 

The exponentiation operator, ** , is defined for integer-constant 
exponents only. 

The sequence in which operations are performed is determined by the 
precedence of the operators. The order of precedence of operators 
is : 

a. First: ** 

b. Second: *,/, MOD, DIV, MULX 
C. Third: +,- 

When operators are of the same order of precedence, the sequence of 
operation is determined by the left-to-right order of appearance of 
the operators . 

An expression between parentheses is evaluated by itself and this 
value is used in subsequent calculations. That is, the normal order 
of precedence of operators can be overridden by the judicious place- 
ment of parantheses. Therefore, the desired order of execution with- 
in an expression can always be arranged by the appropriate position- 
ing of parentheses. 

No two operators may be adjacent. 

An empty field causes the initial field as specified by the field 
value part in the declaration, to be assigned to the field. A field 
value of * causes the field to be ignored. If no initial value is 
pecified, then (empty) is equivalent to *. 
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BOOLEAN EXPRESSIONS . 

SYNTAX . 

The syntax for (Boolean expression) is as follows: 

(Boolean expression) ::= (Boolean assignment) I (simple 

Boolean expression) J (word expression) (iF clause) 
(Boolean expression) ELSE (Boolean expression) 

(Boolean assignment) ::= (Boolean variable) (replacement 
operator) (Boolean expression) 

(simple Boolean expression) ::= (simple Boolean expression) 
EQV (implication) j (implication) 

(implication) ::= (implication) IMP (Boolean term) | (Boolean 
term) 

(Boolean term) ::= (Boolean term) OR (Boolean factor) | 
(Boolean factor) 

(Boolean factor) ::= (Boolean factor) AND (Boolean secondary) 
j (Boolean secondary) 

(Boolean secondary) ::= (Boolean primary) | NOT (Boolean 

primary) 

(Boolean primary) ::= (logical value) j (relation) I (Boolean 

item) | (Boolean field operand) j (Boolean field 

designator) j (Boolean primary) & (Boolean layout) | 
(value designator) 

(Boolean item) ::= (item) 

(Boolean field designator) ::= (Boolean field operand) . 
(field identifier) 

(Boolean field operand) ::= ((Boolean expression)) | (Boolean 
variable) j 

(Boolean function designator) | 
(case head) ((Boolean expression list)) 
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(Boolean expression list) ::= (Boolean expression) j 

(Boolean expression list) , (Boolean expression) 

(Boolean layout) ::= (layout) 

(Boolean variable) : := (variable) 

(Boolean function designator) ::= (function designator) 

Examples ; 

Boolean Expressions: 

BOOLE - A EQV B[j,l] 

TRUE OR FALSE 

IF K<1 THEN S>¥ ELSE L<C 

Simple Boolean Expressions: 

UGO EQV IGO 

NOT SO 

WEGO OR HEGO EQV IGO EQV UGO 

Implications : 

ITISRAINING IMP GROUNDISWET 
BOOVAR AND THIS IMP T0M0R[l,2] 
THIS IMP THAT IMP THOSE 
NOT SO 

Boolean Terms : 

(B>C) OR (D>E) 

BOOV AND BOON OR BOOK 

A [l,2] AND BVAR OR (NOT THT) OR YEST 

NOT SO 

Boolean Factors : 

boov and boon 

not (j>2) and trud 

a[j+i,z-3] and varb and nextm 

NOT SO 
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Boolean Secondaries : 

TRUE 
NOT SO 

Boolean Primaries: 

FALSE 

X>Y 

(NOT SO) 

B00VAR.F2 

TRUE & CONGLOM (TRUE , FALSE ,Z+10 , TRUE) 

Boolean Field Designators: 

BAHK . LEFTMOST 
FRNT . FORTYON 

Boolean Field Operands: 

(if k>1 then v<2 else (v2-dynam)) 

boolvarb 

boofunc(q>v) 

case zyglot of (true, not so, etcetera<q) 

semantics. 

A Boolean expression defines a logical value. A variable, value 
designator, or function designator used as a Boolean primary must 
be of type Boolean. The sequence in which operations are performed 
is determined by the precedence of the operators. The order of 
precedence is : 



a . 


First : 


Arithmetic expressions 


b. 


Second : 


Relations 


c . 


Third: 


NOT 


d. 


Fourth: 


AND 


e . 


Fifth: 


OR 


f . 


Sixth: 


IMP 


g- 


Seventh 


: EQV 
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REFERENCE EXPRESSIONS . 

SYNTAX. 

The syntax for (reference expression) is: 

(reference expression) ::= NULL | (reference assignment) | 

(IF clause) (reference expression) ELSE (reference 
expression) (reference designator) | (entry 
expression) | (reference item) | REFERENCE 
((variable)) | (function designator) | (word 
expression) j ((reference expression)) j (case head) 
((reference expression list)) 

(entry expression) ::= (queue name) ((actual item list)) 

(queue name) ::= (queue identifier) | (queue array identifier) 

(actual item list) ::= (actual parameter list) 

(reference assignment) ::= (reference designator) «- 
(reference expression) 

(queue designator) ::= (queue identifier) | (queue array 
identifier) [(arithmetic expression)] 

(reference designator) ::= (reference identifier) | (reference 
name) | (reference array name) [(subscript)] 

(reference identifier) ::= (identifier) 

(reference array name) ::= (array identifier) | (reference name) 

(reference item) ::= (item) 

(reference expression list) ::= (reference expression) | 

(reference expression list) , (reference expression) 
Examples : 

Reference Expressions: 

IF A > B THEN NEXTONE - LASTONE ELSE NULL 

NULL 

NEST ONE «- LASTONE 

NEXTONE 

QUEUP (LOCAT,SIZEX) 
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ARY[2,3] 

REFERENCE ( BOOVARB ) 

REFFUNC ( ARRAY[ 2,7]) 

CASE q[v-7+att[num]] OF (FIRSTONE, NEXTONE, lastone) 

Entry Expression: 

QUNM ( HERE , THERE , EVY ) 

Queue Designators: 

QUNM 
DYNAM[3] 

SEMANTICS. 

A reference expression points to some object or location. In 

particular, NULL points to nothing. 

A reference name used as a reference array name must belong to 
a queue array. 

An entry expression causes the creation of an entity having the 
format of an entry in the named queue or queue array. A pointer 
to this potential entry is returned as a reference expression. 

The REFERENCE transfer function generates a reference expression 
pointing to a variable. 

DESIGNATIONAL EXPRESSION . 

SYNTAX. 

The syntax for designat ional expression is: 

(designational expression) ::= (label identifier) 

SEMANTICS. 

A designation expression defines a label. 
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RELATIONS . 

SYNTAX . 

The syntax for (relation) is: 

(relation) ::= (arithmetic relation) | (reference relation) j 
(string relation) | (pointer relation) 

(arithmetic relation) ::= (arithmetic expression) 

(arithmetic relational) (arithmetic expression) 

(arithmetic relational) ::= (relational operator) | IS 

(reference relation) : := (reference expression) (reference 
relational) (reference expression) 

(reference relational) ::= = j ^ 

(string relation) ::= (pointer expression) (relational operator) 
(pointer expression) FOR (arithmetic expression) 

(pointer relation) ::= (pointer expression) (reference 
relational) (pointer expression) 

SEMANTICS. 

Relations define the manner in which the various relational 

operators are used with the various expression types. 

The IS operator compares all the bits (including tag bits) of two 
B 6500 words. If they all are equal, the result of the comparison 
is TRUE. 

POINTER EXPRESSIONS . 

SYNTAX . 

The syntax for (pointer expression) is: 

(pointer expression) ::= (simple pointer expression) j 

\if clause) (pointer expression) ELSE (pointer 
expression) 
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(simple pointer expression) ::= (pointer primary) (skip) 
I (pointer assignment) j (word array row) j 
(subscripted word variables) 

(pointer primary) ::= (pointer identifier) | ((pointer 

expression)) | (case head) ((pointer expression 
list)) j (pointer designator) 

(skip) ::= (empty) | (adding operator) (primary) 

(pointer identifier) ::= (identifier) 

(pointer designator) ::= POINTER ((pointer parameters)) 

(pointer parameters) ::= (array part) j (array part), 
(character size) 

(character size) : : = h \ 6 \ 8 j * 

(array part) ::= (array row) | (subscripted variable) j 
(array identifier) 

(subscripted word variable) ::= (subscripted variable) 

(array row) ::= (array identifier) [(row designator)] 

(row designator) : : = * j (row) , * 

(word array row) ::= (array row) 

(row) ::= (arithmetic expression) | (row), (arithmetic 
expression) 

(pointer expression list) : := (pointer expression) | 

(pointer expression list), (pointer expression) 

(pointer assignment) ::= (pointer variable) (replacement 
operator) (pointer expression) 

(pointer variable) ::= (variable) 
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SEMANTICS. 

A pointer expression defines a character position within an array 
row. An identifier used as a pointer primary must be of type 
pointer. If a pointer expression is enclosed in parentheses, it is 
evaluated first and its value used as a primary. 

If skip is not empty, the pointer value is adjusted by L characters 
to the right or left , where L is the absolute value of the arith- 
metic expression. If the adding operator is +, skipping is to the 
right. If the operator is -, skipping is to the left. 

A pointer designator may be used to create a pointer value which 
references a specific character position in an array. The pointer 
designator has two forms: 

a. POINTER (A,L) - yields a pointer value "pointing" to A. 
A is an array identifier which may either by subscripted 
or unsubscripted. L is A character length in bits (k , 6 , 
or 8). 

b. POINTER (A) - same as pointer (A,6). 

c. POINTER (A,*) - yields a pointer with a size field equal 

to A. [42:3] . 

A pointer may be initialized either by a pointer assignment or by 
appearing as an update pointer in a SCAN or REPLACE statement or a 
string comparison. 

ARRAY EXPRESSIONS . 

SYNTAX . 

The syntax for (array expression) is as follows: 

(array expression) ::= (array assignment) | (array primary) | 

(IF clause) (array expression) ELSE (array expression) 

(array primary) ::= (array designator) | ((array expression)) 
| (array primary) & (layout) | (word expression) 
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(array designator) ::= (array identifier) (subarray designator) 

(array variable) ::= (simple variable) | (array item) 

(subarray designator) ::= (empty) | [(subscript part) 
(subarray part)] 

(subscript part) : := (empty) | (subscript list) , 

(subarray part) ::= * | (subarray part) ,* 

(array assignment) ::= (array designator) (replacement 
operator) (array expression) 

(array item) ::= (item) 

Examples : 

Array Expressions : 

IF BOOVAR THEN ARRVAR [2,3,*] ELSE A2S3 - A1S3 
A2S2-A3S3 

arvr[ 3 > * ] 

Array Primaries : 

QVAR [3 i*] 
(A2S2-A3S3) 
QVAR [2,*] & C2S 

Array Designators: 

NEXT 
NXT0N[2,3>*] 

Array Variables: 
DELTA 
ARRAYNAME @ ARRAYDECQUE 

Subarray Designators: 

[*] 
[2,*] 
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SEMANTICS. 

An array designator references a data descriptor. In fact, an array 
designator is ESPOL for data descriptor. An array assignment ini- 
tializes or changes the values of the various fields in the corre- 
sponding data descriptor. 

WORD EXPRESSIONS . 

SYNTAX. 

The syntax for (word expression) is: 

(word expression) ::= (word assignment) | (word variable) | 
(word item) ( IF clause) (word expression) ELSE 
(word expression) j WORD ((most expressions)) | 
(function designator) | (case head) (word expression 
list) j ((word expression)) 

(word variable) ::= (variable) 

(word item) ::= (item) 

(most expressions) ::= (arithmetic expression) | (Boolean 

expression) | (reference expression) | (array 
expression) 

(word expression list) ::= (word expression) | (word expression 
list), (word expression) 

(word assignment) ::= (word variable) (replacement operator) 
(expression) 

SEMANTICS . 

A word expression defines a word value. Word values are regarded 
as a 48-bit field with no type significance. A word transfer 
function behaves in much the same manner as the REAL and Boolean 
transfer functions, i.e., it suppresses syntax checking which would 
otherwise be invoked. 
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PRAGMATICS. 

A word variable is accessed via a LODT . However, no such action 
must be expected for the expression associated with the word 
transfer function - the code applicable to the expression is com- 
piled. There is no guarantee that a correctly compiled word ex- 
pression produces valid B 6500 code. 
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SECTION 6 
PROGRAMS, BLOCKS, AND COMPOUND STATEMENTS 



GENERAL . 



SYNTAX. 

The syntax for (program) is as follows: 

(program) ::= (block) . (space) 

(block) ::= (block head) ; (compound tail) 

(compound statement) ::= BEGIN (compound tail) 

(block head) ::= BEGIN (declaration) | (block head) ; 
(declaration) 

(compound tail) : : = (statement) END | (statement) ; (compound 
tail) 

Examples : 

Program: 

BEGIN REAL V; V-V+1;END. 

Block: 

BEGIN REAL Q; Q«-Q+1;END 

BEGIN 

INTEGER I,K; REAL ¥; 

FOR 1-1 STEP 1 UNTIL M DO 

FOR K-I+l STEP 1 UNTIL M DO 

BEGIN 

¥-A[l,Kj; 

A[l,K>A[K,l]; 

a[k,i]-w 

END 
END 
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Compound statement: 

BEGIN X«-0;FOR Y«-l STEP 1 UNTIL N DO X-X+a[y] ; 

IF X>Q THEN GO TO STOP ELSE IF X>¥-2 THEN GO TO ¥ ; 

AW^ST>-X+BOB 

END 

BEGIN V<-V+l END 

BEGIN Q«-Q+l; V«-V+l END 

BEGIN END 

Block Head: 

BEGIN REAL V 

BEGIN REAL V; BOOLEAN Q 

Compound Tail: 

V-V+l END 
Q<-Q+1;V-Q+V END 

SEMANTICS. 

Every block automatically introduces a new level of nomenclature. 
That is, any identifier occurring within the block may, through an 
appropriate declaration, be declared LOCAL to the block. The mean- 
ing of LOCAL is: 

a. The entity represented by the identifier inside the 
block is not recognized by the identifier outside the 
block. 

b. Conversely, any entity represented by the identifier 
outside the block is not recognized by that identifier 
inside the block. 

An identifier occurring within a block and not declared within that 
block is global to the block. This means the identifier represents 
the same entity inside the block and in the level (or levels) out- 
side it, up to and including the level at which it is declared. 
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The general design of an ESPOL program is similar to that of an 
ALGOL program. 

The remarks in two previous paragraphs above specifically do not 
apply where the entity is an interrupt declaration. 
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SECTION 7 
STATEMENTS 



GENERAL. 



SYNTAX. 

The syntax for (statement) is as follows: 

(statement) ::= (conditional statement) | (unconditional 
statement ) 

(conditional statement) ::= (label) : (conditional statement) 
(IF clause) (unconditional statement) ELSE (condi- 
tional statement) | (if clause) (statement) J 
(conditional iteration) 

(unconditional statement) ::= (label) : (unconditional 
statement) ) (block) | (compound statement) | 
(basic statement) (iF clause) (unconditional 
statement) ELSE (unconditional statement) 

(label) ::= (label identifier) 

(IF clause) : : = IF (Boolean expression) THEN 
Examples : 

Statements : 

IF X>B THEN X-X+l ELSE GO TO B2 
X-A+B 

Conditional Statements: 

B2:IF X>0 THEN N*-N+l 

IF TRUE THEN V:Q-N+M ELSE IF NOT 800 THEN Q:=M/N 

IF b<-f(a) THEN GO TO START 

WHILE TRUE DO IF X-Q+M>2 THEN GO TO L6 

Unconditional Statements: 
LBL: GO TO NEXT 
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IF Z>X THEN GO TO FLAS ELSE GO SCND 

BEGIN Y«-X+l;Z«-Y+2 END 

BEGIN REAL X; LABEL Q; IF Z>P THEN GO TO Q ELSE X-FC(c); 

Q:END 
LBL: 

IF Clause: 

IF B>A THEN 

IF GATE[l,2] AND GATE[l,3] THEN 

SEMANTICS. 

Statements are the units of operation of the language. The defini- 
tion of statement is recursive because statements may be grouped in 
compound statements and blocks. A conditional statement causes 
certain statements to be executed or skipped depending upon the 
value produced by a Boolean expression. 

BASIC STATEMENTS . 

SYNTAX. 

The syntax for (basic statement) is as follows: 

(basic statement) ::= (go to statement) | (procedure statement) 
| (unconditional iteration) | (assignment statement) 
j (dummy statement) | (case statement) | (string 
transfer statement) 

(go to statement) ::= GO (to part) (designational expression) | 
GO (to part) (case head) ((designational expression 
list)) 

(to part) ::= (empty) | TO 

(designational expression list) : := (designational expression) 
| (designational expression list) , (designational 
expression) 

(dummy statement) ::= (empty) 
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(case statement) :: = (case head) (compound statement) 
(case head) ::= CASE (arithmetic expression) OF 
Examples : 

GO TO Statements: 

GO TO START 

GO NEXT 

GO TO CASE ARITHEXP-1 OF (LABEL1 , NEXT, EXIT, START) 

Dummy Statements: 

LI: 

EXIT: NEXT: 

CASE Statements: 

CASE V OF BEGIN X-X+l ;Z«-Z+1 END 
CASE Head: 

CASE Z-Q*V-B MOD 7 OF 

SEMANTICS . 

The GO TO statement transfers control to the label which is the 
value of the designational expression or the designational expres- 
sion list. 

In the case statement, the arithmetic expression in the case head 
is evaluated and is used to select one of the statements in the 
compound statement following the case head. The selected state- 
ment and only the selected statement is executed. 

The statements in the compound statement are numbered starting 
with zero, and the arithmetic expression in the case head is 
interpreted as the number of the statement to be executed. Dummy 
statements should be used to arrange convenient numbering of the 
statements . 
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PROCEDURE STATEMENTS AND FUNCTION DESIGNATORS. 

SYNTAX. 

The syntax for (procedure statement) is: 

(procedure statement) ::= (procedure identifier) (actual 
parameter part) 

(function designator) ::= (function identifier) (actual 
parameter part) 

(function identifier) ::= (procedure identifier) 

(actual parameter part) ::= (empty) | ((actual parameter list)) 

(actual parameter list) ::= (actual parameter) | (actual para- 
meter list) (parameter delimiter) (actual parameter) 

(actual parameter) ::= (expression) | (procedure identifier) | 
(event designator) 

(parameter delimiter) ::= )" {any sequence of letters, including 
spaces} "(/» 

Examples ; 

Procedure Statements: 

ALG0RITHM123 (A+2) 

ALGORITHM546 ( A +2 ) "AVERAGE PLUS TWO" (CALCRULE) 

GETESPDISK 

Function Designators: 

j(A,B+2,Q[l,L] ) 

GASVOL(K) "TEMPERATURE" (t) "PRESSURE" (p) 

RANDOMNO 
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Actual Parameter Parts: 

(A,B+2,Q[I,J]) 

(A+2) 

(K) "TEMPERATURE "(T) "PRESSURE" (p) 

Actual Parameters: 

A+2 

A 

CHECKOUT 

A[2] 

Event Designators: 

El 
XERXES 

ZEUS[2,3] 

Parameter Delimiters: 
) "TEMPERATURE" ( 

SEMANTICS. 

A procedure statement causes a previously defined procedure to be 
executed. 

A function designator returns a value. However, when a function 
designator is used as a procedure statement, this value is lost. 

The actual parameter list of the procedure statement must have the 
same number of entries as the formal parameter list of the procedure 
declaration heading. 

Formal and actual parameters must correspond in type and kind of 
quantities. The correspondence is obtained by taking the entries 
of these two lists in the same order. 
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ITERATION . 

SYNTAX . 

The syntax for {unconditional iteration) is: 

(unconditional iteration) ::= (do statement) | (iteration 
clause) (unconditional statement) 

(conditional iteration) ::= (iteration clause) (conditional 
statement ) 

(do statement) ::= DO (statement) UNTIL (Boolean expression) 

(iteration clause) ::= (while part) DO j (for clause) DO j 
(thru clause) DO 

(while part) ::= WHILE (Boolean expression) 

(thru clause) ::= THRU (arithmetic expression) 

(for clause) ::= FOR (controlled variable) (replacement 
operator) (for part) 

(controlled variable) ::= (simple variable) | (subscripted 
variable) 

(for part) ::= (initial part) (step part) (final part) 

(initial part) ::= (arithmetic expression) 

(step part) ::= STEP (arithmetic expression) | BY (arithmetic 
expression) 

(final part) ::= UNTIL (arithmetic expression) | (while part) 
Examples ; 

Iteration Clauses: 

FOR V«-Q STEP 1 UNTIL 90 DO 

WHILE A>B DO 

FOR FIRST -BY 1 UNTIL LAST DO 
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While Parts: 

WHILE NOT A ^ C EQV GATE [l,2] 
WHILE TRUE 

For Clauses: 

FOR ATLST - J-2 STEP A - Q - J-K UNTIL F(a) 
Controlled variables: 

ATLST 

V[2,3] 

For Parts : 

X-2 STEP X-Y+FUNC(A)UNTIL X-Y MOD 9 
Initial Parts: 

P MOD 2 
+3 

Q 

Step Parts: 

STEP IF B = THEN X ELSE Y+2 
BY 29 

Final Parts: 

UNTIL X-7 
WHILE B>8 

SEMANTICS. 

The iteration clause provides the means of forming loops in a 
program. If BY (arithmetic expression) is used instead of STEP 
(arithmetic expression), the loop will be constructed using the 
Step and Branch operator to optimize execution time. 
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ASSIGNMENT STATEMENTS . 

SYNTAX . 

The syntax for (assignment statement) is: 

(assignment statement) ::= (arithmetic assignment statement) | 
(Boolean assignment statement) | (queue assignment) j 
(word assignment) | (reference assignment) | (pointer 
assignment) | (array assignment statement) 

(arithmetic assignment statement) ::= (arithmetic assignment) | 
(arithmetic field assignment) 

(arithmetic field assignment) ::= (arithmetic variable) . 
(field identifier) (replacement operator) 
(arithmetic expression) 

(Boolean assignment statement) ::= (Boolean assignment) | 
(Boolean field assignment) 

(Boolean field assignment) ::= (Boolean variable) . (field 
identifier) (replacement operator) (Boolean 
expression) 

(queue assignment) ::= (queue designator) (replacement operator 
(reference expression) 

(array assignment statement) ::= (array assignment) | (array 
field assignment) 

(array field assignment) ::= (array designator) . (field 
identifier) (replacement operator) (arithmetic 
expression) 

Examples : 

Arithmetic Assignment Statements: 
V-BxQ-R 
JOY.BOY^ V-Q 



7-8 



Arithmetic Assignments: 

ALTHO «- N+l 

S[v,K+2] :=3-FUNC(Q=2) 

Arithmetic Field Assignments: 

IOQUEUE,ERR - 6 

V[ 7 ] . LNK : = QUED-GONEx7 

Boolean Assignment Statements: 

RDY-TRUE 

PARTWAY. NXT - B AND GONE > 6 

Queue Assignments: 

QUED - QUEB( HERE, THERE, EVYWHR) 
Array Assignment: 

NEXT-IF A[1,2]AND B[q, 3 ] THEN VAR Y [2,*] ELSE A253-A234 
SEMANTICS . 

The assignment statement causes the expression to the right of the 
replacement operator to be evaluated. The value is assigned (trans, 
f erred) to the variable or field on the left. 

A queue assignment causes the entry denoted by the value of the 
reference expression to be made available to the insertion part of 
the designated queue, and this insertion part to be executed. 

PRAGMATICS . 

(word assignments invoke OVRD action. 

There is no guarantee that a correctly compiled WORD ASSIGNMENT 
produces valid B 6500 code. 



7-9 



STRING STATEMENTS . 

SYNTAX. 

The syntax for (string transfer statement) is: 

(string transfer statement) ::= REPLACE (destination) BY 
(source list) 

(string scan statement) ::= SCAN (source) (scan part) 

(destination) ::= (update pointer) (pointer expression) 

(source list) ::= (source part) | (source part) , (source list) 

(source) : := (pointer source) | (arithmetic source) 

(scan part) ::= (scan count) (condition) | (condition) 

(source part) ::= (source) (transfer part) | (string) 

(transfer part) (arithmetic source) (arithmetic 
transfer part) | (string) 

(transfer part) ::= (scan count) (condition) | (condition) 

(final count) (units) | WITH (picture designator) | 
(final count) WITH (translate table) 

(arithmetic transfer part) ::= (digit count) | (correct count) 
j (correct count) (condition) 

(scan count) : := FOR (update count) (arithmetic expression) 

(final count) : := FOR (arithmetic expression) 

(digit count) : := FOR (arithmetic expression) DIGITS 

(correct count) ::= (scan count) CORRECTLY 

(pointer source) ::= (update pointer) (pointer expression) 
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(arithmetic source) ::= (update variable) (arithmetic 
expression) 

(condition) ::= WHILE (relational operator) (arithmetic 

expression) | UNTIL (relational operator) (arithmetic 
expression) | WHILE IN (table) | UNTIL IN (table) 

(table) ::= (array row) | (subscripted variable) 

(translate table) ::= (table) 

(picture designator) ::= (picture identifier) (repeat parameters) 

(repeat parameters) ::= (empty) j ((unsigned integer list)) 

(unsigned integer list) ::= (arithmetic expression) | 

(arithmetic expression) , (unsigned integer list) 

(update pointer) ::= (empty) | (pointer identifier) : 

(update variable) ::= (empty) | (simple variable) : 

(update count) ::= (empty) | (simple variable) : 

(units) ::= (empty) | WORDS | OVERWRITE 

SEMANTICS. 

A (string transfer statement) tranfers information from the source 
to the destination. The unit of information is either words or 
characters, and the number of units transferred is specified by a 
count or determined by a condition. If the unit of information is 
words , then both the source and the destination are right-adjusted 
to a word boundary before the transfer begins. 

A (string scan statement) scans the information in the source. 
Characters are the unit of information: also, a condition must be 
present. The number of characters scanned may be determined by 
the count or the condition. 

Characters are the default unit for the transfer statement. For 
example, WORDS and OVERWRITE both mean units of one word. In 
addition, OVERWRITE ignores memory protection on the destination. 
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At the end of a scan or transfer the following updated information 
is available: 

a. The destination update pointer, points to the next position 
to be filled. If the unit of transfer is words, it points 
to the left-most character of the next word to be filled. 

b. The source update pointer, points to the next unit which 
is scanned or transferred. If the unit is a word, the 
update pointer points to the left-most character of the 
word. 

c. For scans and transfers an arithmetic source is thought 
of as being circular, with the high-order and low-order 
ends contiguous. The source update variable returns the 
original expression rotated in such a way that the next 
character used is in the high-order position. 

d. Each time a unit of information is scanned or transferred, 
the original count, as given by an arithmetic expression, 
is decremented by 1. This continues until the count 
reaches zero, if no condition is imposed. If a condition 
is imposed, the count may not reach zero, and the update 
count returns the value of the count at the end of the 
transfer. The reserved-word TOGGLE is true, iff the 
update count is zero. 

The {digit count) converts the source arithmetic expression into an 
integer in decimal form. The designated number of low-order 
decimal digits is transferred to the destination and the source 
update variable returns the original expression DIV the designated 
power of 10. 

The (correct count) rotates the source arithmetic expression so 
that the appropriate number of low-order characters appear in the 
high-order of the source. After this rotation a normal transfer 
occurs. If for example, one character were to be transferred 
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correctly, the low-order character would be moved to the high- 
order position before the transfer occurred. Since transfers work 
from left-to-right, this has the effect of allowing the transfer 
of right-justified characters in an arithmetic expression. 

Scans and transfers always work from left-to-right on destination, 
source, and arithmetic source. Exceptions are correct count and 
digit count. 

The (translate table) works as follows: 

a. Each source character is used to find an 8-bit translation 
character in an array row. The high-order part of this 
character is discarded to make it fit the destination 

•character set. It is then stored in the destination. 

b. The 8-bit translation character is found in the following 
way. The low-order 2-bits of the source character are 
used as the character index and the remaining high-order 
bits are used as the word index. The word index is used 
as a subscript to the array row, or it is added to the 
right-most subscript of the subscripted variable. In the 
resulting word-character number (2 + (character index)) 
is the translation character. As usual, the characters 
are numbered left-to-right, so that the translation 
character is one of the four low-order 8-bit characters 
in the word. 

The WHILE (relation operator) form of condition causes termination 
of the SCAN or TRANSFER when the source character ceases to have 
the designated relation to the low-order character of the condition 
arithmetic expression. The character which causes termination of 
the SCAN or TRANSFER is not scanned or transferred. Thus the 
source update pointer or update variable is pointing to this 
character. 

The UNTIL (relational operator) form of condition causes termina- 
tion of the SCAN or TRANSFER when the source character has the 
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designated relation to the low-order character of the condition 
arithmetic expression. The character which causes termination 
of the scan or transfer is not scanned or transferred. 

The conditions involving the table construct use the bits of the 
source character to find a test bit in an array row. The char- 
acter is in the table iff the test bit is on. The test bit is 
found in the following way. The low-order 5 bits of the source 
character (k bits if the source character has only four) are used 
as the bit index, and the remaining bits, if any, are used as the 
array row, or it is added to the right-most subscript of the sub- 
scripted variable. In the resulting word-bit number (31 - (bit 
index)) is the test bit. As usual, bits are numbered right-to- 
left, so that the test bit is one of the low-order 32 bits in 
the word. 

If the source is a string, the string is transferred to the des- 
tination under the control of a count. If the count, C, is not 
greater than the string length, L, then C characters are copied 
into the destination. If the count, C, is greater than the 
length, L, and the string is more than 48 bits long, the behav- 
ior is unpredictable. If C is greater than L, and the string is 
shorter than 48 bits, then the string is concatenated with itself 
until the count is exausted. For example, 8 "ABCD" for 10 
transfers "ABCDABABCD" , not "ABCDABCDAB " . 
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SECTION 8 
DECLARATIONS 

GENERAL . 

SYNTAX. 

The syntax for (declaration) is as follows: 

(declaration) ::= (type declaration) j (label declaration) | 
(array declaration) j (field declaration) | 
(layout declaration) j (queue declaration) j 
(queue array declaration) | (procedure declaration) 
(define declaration) | (event declaration) j 
(event array declaration) | (picture declaration) | 
(value array declaration) | (monitor declaration) j 
(interrupt declaration) 

SEMANTICS. 

Declarations define certain properties of entities and relate these 

entities with identifiers. 

The entities dealt with in the ESPOL language are: 

a. Variables. 

b. Labels. 

c. Procedures. 

d. Fields. 

e . Strings . 

f. Texts. 

Every identifier has a "scope." The scope of the identifier is 
usually the block in which it is declared. The exceptions are: 

a. Formal symbols in a define declaration whose scope is 
the defines . 

b. Formal parameters in a procedure declaration whose scope 
is the procedure declaration. 

c. Invisible formal items in a queue declaration whose scope 
is the queue declaration. 
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An identifier is said to be "local" to the block in which it is 
declared. That is, the entity represented by the identifier in- 
side the block is not recognized by the identifier outside the 
block. Conversely, any entity represented by the identifier out- 
side the block is not recognized by that identifier inside the block. 

An identifier is said to be "global" to a block if: 

a. It is not declared in the block. 

b. It is declared in an exterior block. 

Entry into a block must be through the BEGIN. When the block is 
entered, all identifiers declared for the block assume the signif- 
icance implied by the nature of the declarations given, in the 
order of their appearance in the block head. 

Exit from a block may be through the END or by a GO TO statement. 
At the time of exit from the block, all identifiers which are de- 
clared for the block lose their significance. 

Some identifiers may be declared with the declarator OWN. This 
declarator causes the identified quantity to retain its value(s) 
from one exit in a block to the next entry into that block. 

An identifier may not be declared to represent more than one entity 
in a single block head, formal symbol list, formal parameter list, 
or formal item list. 

TYPE DECLARATIONS . 

SYNTAX . 

The syntax for (type declaration) is as follows: 

(type declaration) ::= (type) (type list) | OWN (type) 
(type list) 

(type) ::= REAL | INTEGER | BOOLEAN | DOUBLE | REFERENCE | 
POINTER I WORD 
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(type list) ::= (type part) | (type list) , (type part) 

(type part) ::= (identifier) (address part) | (identifier) 
(replacement operator) (initial value) 

(address part) ::= (empty) J = (address) 

(address) ::= (identifier) | (address couple) | (identifier) 
(adding operator) (unsigned integer) 

(address couple) ::= ((level) (displacement)) 

(level) ::= (unsigned integer) | - (unsigned integer) 

(displacement) ::= (empty) | , (unsigned integer) 

(initial value) : := (expression) 



Examples : 

Type Declaration! 



OWN REAL V , Q ; 

OWN INTEGER B ,A ; 

INTEGER Q - 1, R, S=T ,V=(3 ,4 ) ; 



Type List: 



Q 

C=W 

GENERAL=(l ,2) ,F12T-5 ,Z=( 3) 



Type Part 



ZERO-1 

QUOTE = ( 3 , k ) 

TERIF=GRT 
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Address : 

ZQW 
(3,M 

Initial Value: 

3 

IF B THEN XxQ ELSE BOD+NOTHING 

SEMANTICS . 

A type declaration defines the type of value of each type identi- 
fier. 

A type declaration may also either assign the address of the ident- 
ifier, or assign the initial value of the identifier, or specify 
that the identifier has the OWN property. 

An address which is an identifier assigns the type identifier to the 
same location as the identifier. The identifier must have been de- 
clared previously, and must identify a quantity having a stack ad- 
dress . 

An empty address part results in the assignment of an address couple 
by the compiler. 

An address couple is an addressing level and a displacement from 
the base of that level. The addressing level may range from to 
31. 

A negative integer used as a level directs the compiler to determine 
the level referenced by subtracting the integer from the level of 
the block being compiled. 

An empty displacement directs the compiler to use the next available 
displacement for the level indicated. The range of displacement 
depends upon the value of level: 
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Level Displacement Range 

0,1 0-8191 

2,3 0-4095 

4-7 0-2047 

8-15 0-1023 

16-31 0-511 

The specified level must be less than or equal to the current level. 

It is possible for two or more identifiers to have the same address 
couple (directed by the programmer). It is the responsibility of 
the programmer to see that the antecedents of an address couple, 
used as an address part, are correct. 

An initial value expression assigns the value that the identifier 
has upon entering the block in which the type declaration appears. 
The expression is evaluated upon each entry to the block. All 
initial value expressions are evaluated in the order in which they 
appear. An initial value expression must be of the same type as the 
declaration. If an initial value is not specified for any type 
identifier, the initial value of that identifier is not defined. 

The OWN property action is essentially the same as that which would 
occur if the programmer were to specify an address couple referenc- 
ing the zero level with an empty displacement. 

LABEL DECLARATIONS . 

SYNTAX . 

The syntax for (label declaration) is: 

(label declaration) :: = LABEL (label list) 

(label list) ::= (label identifier) | (label list) , (label 
identifier) 

(label identifier) ::= (identifier) 
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Examples ; 

Label Declarations: 

LABEL FOG; 
LABEL L7 jL8; 

Label List : 

START ,EXIT ,LOOP 
NEXT 

SEMANTICS, 

A declared label declaration defines each identifier in its label 

list as a label identifier. 

A label identifier must appear in a label declaration in the head of 
the block in which it is used to label a statement. 

A label identifier need not be declared if its first appearance in 
the block labels a statement, or if its first appearance in the 
block is in a GO TO statement and there is no non-local label with 
the same identifier previously appearing. 

ARRAY DECLARATIONS . 

SYNTAX. 

The syntax for (array declaration) is as follows: 

(array declaration) ::= (array kind) ARRAY (array list) 

(array kind) ::= (empty) | (local or own type) | SAVE (local 
or own type) 

(local or own type) ::= (array type) | OWN (array type) 

(array list) : := (array segment) | (array list) , (array 
segment) | (initialized array) j (array list) , 
(initialized array) 
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(array segment) ::= (array identifier) (address part) [(bound 
list)] | (array identifier) (address part) , (array 
segment ) 

(bound list) ::= (bound) j (bound list) , (bound) 

(bound) ::= (upper bound) j * 

(upper bound) ::= (arithmetic expression) 

(initialized array) ::= (array identifier) (replacement 
operator) ((constant)) 

(array type) ::= (empty) j REAL | INTEGER | BOOLEAN | 
REFERENCE j WORD j EVENT 

Examples : 

Array Declarations: 

OWN REAL ARRAY AZ , BZ = (3,4), CZ [27] 
ARRAY BZ[lO] 

Arrav Lists: 

AZ,BZ = (3,4) ,CZ[27] 

PQ,RQ[3l] 

PC[15] ,RC[31] 

Array Segments : 

C7C=(-2,5) ,C8C=,C7C,CQC = (4)[*] 
C27[l022] 

Bound Lists : 

1,56 

7 
l,* 



8-7 



Bounds : 

27 

IF A THEN 1 ELSE Q-7 

SEMANTICS. 

An array declaration defines one or several identifiers to represent 

arrays of subscripted variables and gives: 

a. The dimension of the array. 

b. The bounds of the subscripts. 

c. The types of the variables. 

The value of an array identifier is a data descriptor representing 
the ordered set of values of the corresponding array of subscript- 
ed variables. 

An empty array kind means a default declaration of REAL. 

The location specified by the address part must contain a data des- 
criptor or an Indirect Reference Word pointing to a data descriptor. 

The bound list gives the maximum value of each subscript , taken in 
order from left-to-right. 

A bound of * means that the programmer is responsible for the allo- 
cation of the space for the array. 

Expressions used as bounds are evaluated once, from left-to-right, 
upon entrance into the block. These expressions can depend only on 
variables and procedures which are non-local to the block for which 
the array declaration is valid or which are local and have initial 
value parts. Arrays declared in the outermost block must use con- 
stant or * bounds. 

Dynamic OWN arrays are not permitted. 

A bound of * may not appear to the left of an expression used as a 
bound in the same bound list. 
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When an array segment includes non-empty address parts, a bound of * 
must be used. 

FIELD AND LAYOUT DECLARATIONS . 

SYNTAX. 

The syntax for (field declaration) is as follows: 

(field declaration) ::= FIELD (field part list) 

(layout declaration) ::= LAYOUT (layout part list) 

(field part list) ::= (field part) | (field part list) , (field 
part) 

(layout part list) ::= (layout part) | (layout part list) , 
(layout part) 

(layout part) ::= (layout identifier) ((layout item list)) 

(layout item list) ::= (layout item) | (layout item list) , 
(layout item) 

(layout item) ::= (layout field) (field value part) 

(field value part) ::= (empty) | (replacement operator) 
(unsigned integer) 

(layout field) ::= (field part) | (field) | (field identifier) 
(field part) ::= (field identifier) = (field) j TAG 
(field identifier) ::= (identifier) 

(field) ::= (arithmetic expression) : (arithmetic expression) 
(layout identifier) : : = (identifier) 
Examples : 

Field Declarations: 

FIELD Al = 3:1, AZ = B:i 
FIELD QUIZ = 20:21 
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Layout Declarations: 

LAYOUT C2S (7:6 - 5, QA = B:6 - 92, QUITE), C3S (4:2 -3) 
LAYOUT LOOK (6:^2 - 9 ,QA = BxQ-R:2) 

Field Part Lists: 

Al = 2:3 , A2 = B:A, A3 = C-F(Q):IF TROL THEN QxZ ELSE 

P-Q/R 
B1=B:6 

SEMANTICS. 

A field declaration defines each identifier in its field part list 

as a field identifier and specifies the field. 

A layout declaration identifies each identifier in its layout part 
list as a layout identifier and specifies a layout item list. A 
layout item list is composed of one or more fields, referred to as 
layout items. A layout item may be: 

a. A previously declared field identifier. 

b. An unidentified field. 

c. A field part. 

A layout item may specify a default value for the field. If no de- 
fault value is given and no value is assigned, the field is ignored. 

The expressions in the field designation are evaluated whenever 
the field identifier or layout identifier is used. Where the field 
or layout identifier appears, the expressions are compiled by tex- 
tual replacement. 

The basic B 6500 word consists of 51 bits: 

a. Bits 50, h9 , and h8 are referred to as tag bits. These tag 
bits cannot be addressed directly, however, they may be 
addressed by the reserved field identifier TAG. 
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b. The balance of the B 6500 word is referred to as the in- 
formation field. The information field is address 47-0, 
that is, left-to-right where 47 is the bit on the far left 
and is the bit on the far right. 

TAG is an intrinsic field. It is equivalent to the field 51:3, 
except that the latter is not explicitly permitted. 

QUEUE AND QUEUE ARRAY DECLARATIONS . 

SYNTEX . 

The syntax for (queue declaration) is as follows: 

(queue declaration) ::= QUEUE (queue head) (queue body) 

(queue array declaration) ::= QUEUE ARRAY (queue array head) 
[(index bound)] (queue body) 

(queue head) ::= (queue identifier) (reference name part) 

(queue array head) : : = (queue array identifier) (reference 
name part) 

(index bound) ::= (arithmetic expression) 

(reference name part) ::= (empty) | : (second name > (address 
part) 

(reference name) ::= (identifier) 

(queue body) : := (entry description) ; (algorithm part) 

(entry description) ::= ((entry item list)); 

(value part); (specification part) 
(entry item list) ::= (item list) (invisible item list) 

(item list) ::= (item identifier) j (item list) (parameter 
delimiter) (item identifier) 

(invisible item list) ::= (item list) 

(algorithm part) ::= (empty) j USING (algorithm list) 

(algorithm list) ::= (algorithm) j (algorithm) : (algorithm list) 
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(algorithm) ::= (boolean algorithm identifier) IF (Boolean 
expression) j (reference algorithm identifier) IS 
(reference expression) j TO (algorithm identifier) , 
(statement) | (lock specification) | (integer algorithm 
identifier) = (arithmetic expression) 

(lock specification) ::= LOCKED | LOCKED (queue name) 

(queue identifier) ::= (identifier) 

(queue array identifier) ::= (identifier) 

(reference algorithm identifier) ::= ALLOCATE | NEXT | LAST| 
FIRST | PRIOR 

(algorithm identifier) ::= INSERT | REMOVE | DELINK | (identi- 
fier) 

(Boolean algorithm identifier) ::= EMPTY | FULL 

(integer algorithm identifier) ::= POPULATION 

SEMANTICS. 

A queue is an ordered list of entries. Each entry has the form of 
an array row with one word for each item identifier in the entry 
i t em list. 

A queue array is an array of queues. The index bound designates 
the number of queues involved, and is a strict upper bound for the 
queue array subscripts. 

The entry item list is in effect a declaration for each of the 
item identifiers appearing in it. Those item identifiers appearing 
in the invisible item list are understood to be local to the queue 
declaration, and may not be referenced except in the queue body. 
The remaining item identifiers are local to the block in which the 
queue is declared. 
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In creating an entry expression, the elements in the actual item 
list must be in a one-to-one correspondence with the item identi- 
fiers in the item list of the entry description for the queue in 
question. The invisible item identifiers do not have corresponding 
actual parameters. 

The reference name of a queue points to a specific entry in the 
queue. The exact position of this entry in the queue is deter- 
mined by the queue algorithms. Similarly, the reference name of 
a queue array points to an array of entries, one for each queue 
of the queue array. 

The reserved word ENTRY is local to the queue body. It is used to 
refer to the entry which is currently being placed in, or removed 
from the queue. Also, for the queue array declarations there is 
the reserved word INDEX which is local to the queue body. INDEX 
is the current subscript to the queue array. 

The ALLOCATE algorithm is invoked whenever it is necessary to 
allocate space for an entry or an entry expression. If no ALLOCATE 
algorithm is given, then no entry expression using the queue name 
may be used. 

The INSERT algorithm is used to insert new entries in the queue. 
It is called each time a queue assignment is used. Thus, no queue 
assignment may be used for a queue which has no INSERT algorithm. 

The queue algorithms used by a queue are local to the block in 
which the queue is declared. In an explicit call on a queue algo- 
rithm, the actual parameter list has the following general format: 
(queue name) , (reference expression) , (arithmetic expression). 
Ttie queue name parameter must always be present. The reference 
expression is not required for all algorithms, and when used is 
passed to ENTRY in the queue body. The arithmetic expression is 
only required for queue arrays, and even then, it may not be neces- 
sary. The arithmetic expression is passed to INDEX in the queue 
body of the queue array declaration. The following table should 
be helpful. 
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ALGORITHM 


REFERENCE 


INTEGER 


REMOVE 


NO 


YES 


INSERT 


YES 


YES 


DELINK 


YES 


YES 


ALLOCATE 


NO 


NO 


NEXT 


NO 


YES 


LAST 


NO 


YES 


FIRST 


NO 


YES 


PRIOR 


YES 


YES 


EMPTY 


NO 


YES 


FULL 


NO 


YES 


POPULATION 


NO 


YES 


ALL OTHERS 


YES 


YES 


EXAMPLE : 







REFERENCE LASTREADY; 

QUEUE READYLI ST : FIRSTREADY ( STKNR , PRIORITY : NEXTREADY , PREADY ) ; 

VALUE NEXTREADY , PREADY , STKNR , PRIORITY ; 

INTEGER STKNR , PRIORITY ; 

REFERENCE NEXTREADY , PREADY ; 

USING 

TO INSERT, IF LASTREADY=NULL 

EADY@ ( LASTREADY-FIRSTREADY-ENTRY )-PREADY-NULL 
ELSE IF PRIORITY@ENTRY > PRIORITY® ( PREADY® ( ENTRY )-LASTREADY) 

THEN 
NEXTREADY® ( NEXTREADY® ( LASTREADY )-LASTREADY-ENTRY )-NULL 
ELSE IF PRIORITY®ENTRY < PRIORITY THEN COMMENT GOES AT HEAD; 
PREADY® ( PREADY® ( NEXTREADY® ( ENTRY )-FIRSTREADY (-FIRST- 
READY-ENTRY )-NULL 

ELSE 

BEGIN 

WHILE PRIORITY@ENTRY<PRIORITY@PREADY@ENTRY DO 

PREADY® ( ENTRY ) -PREADY® ( PREADY® ( ENTRY ) ) ; 
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NEXTREADY® ( ENTRY )-NEXTREADY@PREADY@ENTRY ; 
NEXTREADY® ( PREADY@ENTRY )-PREADY@ ( NEXTREADY@ENTRY )«- 
ENTRY 
END: 
EMPTY IF FIRSTREADY=NULL : 
TO REMOVE , 

IF ENTRY=FIRSTREADY THEN 

IF FIRSTREADY=LASTREADY THEN FIRSTREADY-LASTREADY*~NULL 
ELSE PREADY® ( FIRSTREADY-NEXTREADY )-NULL 
ELSE IF ENTRY =LASTREADY THEN 

NEXTREADY® ( LASTREADY^PREADY@ENTRY )-NULL 
ELSE PREADY® ( NEXTREADY® ( PREADY@ENTRY )<-NEXTREADY@ENTRY ) 
-PREADY@ENTRY ; 

PROCEDURE DECLARATIONS . 

SYNTAX . 

The syntax for (procedure declaration) is as follows: 

(procedure declaration) ::= (save part) (procedure type) 
PROCEDURE (procedure heading) (procedure body) 

(save part) ::= (empty) | SAVE | SAVE 1 

(procedure type) ::= (empty) j (type) 

(procedure heading) ::= (procedure identifier) (address part) 
(formal parameter part); 

(procedure identifier) ::= (identifier) 

(formal parameter part) ::= (empty) | ((formal parameter list)); 
(value part) (specification part) 

(formal parameter list) ::= (formal parameter list) 

(parameter delimiter) (formal pararemter) | (formal 
parameter) 

(formal parameter) ::= (identifier) 

(value part) ::= (empty) | VALUE (identifier list) ; 
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(specification part) ::= (specification part) ; (specification) 

j (specification) 

(specification) ::= (specifier) (identifier list) | 
(array specification) 

(array specification) ::= (array type) ARRAY 
(array specifier list) 

(array specifier list) ::= (array specifier list), (array 
specifier) j (array specifier) 

(bound specifier) ::= * | (bound specifier) , * 

(specifier) ::= (type) | (procedure type) PROCEDURE | QUEUE | 
EVENT | PICTURE 

(procedure body) ::= (statement) | FORWARD | EXTERNAL 

(identifier list) ::= (identifier) | (identifier list) , 
(identifier) 

(array specifier) ::= (array identifier list) [ (bound 
specifier) ] 

(array identifier list) : := (array identifier) | (array 
identifier list), (array identifier) 

Examples : 

Procedure Declaration: 

PROCEDURE FAKE;X«-X+1 

PROCEDURE NEXT (A); VALUE A; REAL A; X-A+l 

PROCEDURE NEXT (A); VALUE A; REAL A; FORWARD 

Procedure Heading: 

COMMUNE = INTRIN (A) ; REAL A; 
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Formal Parameter Part: 

(A,B,C); VALUE A; REAL A,B,C; 

(ABSTRACT, DEGENERATE); VALUE ABSTRACT; REAL ABSTRACT; 
PROCEDURE DEGENERATE; 

Formal Parameter List: 

A,B,C 

X) "VALUE OF EXPRESSION X PLUS 2 "(CALCRULE 

Value Part : 

VALUE X,Y,Z 
Specification Part: 

INTEGER N; ARRAY A ,B ,C ,X1 ,X2[ *] ;ALPHA ARRAY X3[*]; 
Specification: 

INTEGER N,0,P,Q 

PROCEDURE MIN,MAX,FIX 

QUEUE X,Y,Z 

EVENT A ,B,C 

QUEUE ARRAY FRED [*] 

Array Specification: 

REAL ARRAY GYM [ * , * ] 

BOOLEAN ARRAY WADSUP [*,*,*], CUMON[ * , * '] 

Array Specifier List: 

GIGL[ * ] 

HERE[*] ,THERE[ *,*,*,*] 

Array Specifier: 
X1,X2,X3[*] 
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Procedure Body: 

BEGIN I-X+QxR ; V-I +RAY ( Q ) ; END SAMPLE 
FORWARD 

SEMANTICS . 

A procedure declaration defines the procedure identifier as the 

name of a procedure. 

The prescriptions stated above for the use of address part apply to 
the use with procedure declarations. Also, the address specified 
must be that of a Program Control Word or an Indirect Reference Word 
pointing to a Program Control Word. 

The value part specifies which formal parameters are to be called 
by value. When a formal parameter is called by value, the formal 
parameter is set to the value of the corresponding actual parameter. 
Thereafter, the formal parameter is handled as a variable that is 
local to the procedure body. That is, any change of value of the 
variable cannot ramify outside the procedure body. 

Only arithmetic, Boolean, pointer, and reference expressions may be 
given as actual parameters to be called by value. These expressions 
are evaluated once, before entry into the procedure body. 

Formal parameters not in the value part are called by name (an ex- 
ception is the event formal parameter discussed below). This means 
that wherever a formal parameter (called by name) appears in the 
procedure body, the formal parameter is replaced by the actual para- 
meter. The meaning of "replaced by" is discussed below for each 
possible type of actual parameter. 

Event formal parameters are called by reference (not in any way con- 
nected with the ESPOL reference type). Call by reference differs 
from call by name in that when the actual parameter is subscripted 
variable, the referenced array element is determined at the time of 
call. It is this array element which is accessed at each appearance 
of the formal parameter within the procedure body. 
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Every formal parameter must appear in the specification part. 

An * must appear in a bound specifier for each dimension of the 
array. 

Procedures may be called recursively. 

In certain situations where procedures are called recursively, it is 
necessary to call a procedure that has not been declared. The 
declarator FORWARD is used for this circumstance. That is, there is 
first an appropriate procedure declaration with the procedure body 
replaced by FORWARD, then the call on the procedure, and later a 
complete procedure declaration. 

A save part of SAVE indicates that the code for the procedure 
currently being declared is to be in the same segment as the block 
in which it is declared. In other words, the compiler can not 
create a new segment for the procedure. 

A save part of SAVE 1 indicates that the procedure being declared is 
an INITIALIZATION procedure. The code for the procedure is at the 
end of the initial block of information which is loaded by the 
hardware. There will be three words of information between the 
SAVE 1 code and the rest of the initial block to facilitate reloca- 
tion of the area after initialization is complete. 

DEFINE DECLARATIONS AND INVOCATIONS. 

SYNTAX . 

The syntax for (define declaration) is: 

(define declaration) ::= DEFINE (definition list) 

(definition list) ::= (definition) | (definition list), 
(definition) 

(definition) ::= (defined identifier) (formal symbol part) = 
(text) # 

(defined identifier) ::= (identifier) 
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(formal symbol part) ::= (empty) | ((formal symbol list)) 

(formal symbol list) ::= (formal symbol) | (formal symbol list) 
, (formal symbol) 

(formal symbol) ::= (identifier) 

(text) ::= {any sequence of valid symbols not including #} 

(invocation) ::= (defined identifier) (actual text part) 

(actual text part) ::= (empty) | ((closed text list)) | 
[(closed text list)] 

(closed text list) ::= (closed text) | (closed text list) , 
(closed text) 

(closed text) ::= {an actual text not containing unmatched 
bracketing symbols or unbracketed commas} 

Examples ; 

Define Declaration: 

DEFINE FORI = FOR I«-l STEP 1 UNTIL#,ADDUP = AxB+C/D# 
Definition List: 

MOVER = - # 

SPLIT = GO T0#,F00L(GRANTED, MAYBE ) = IF GRANTED THEN MAYBE# 

Definition: 

GRANTED (ARITHEXP) = ARITHEXP > NOTSO # 
Formal Symbol List: 

IDENTIFIERONE , TWO 
ONLY 
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Text : 

( 

PROCEDURE 

ANYID 

IF A THEN GO TO SOUTH ELSE BEGIN X-ZxQ; GO TO NORTH END EG; 
Invocation : 

GUARANTY ( X-Y+l ) 
Actual Text Part: 

(ergo) 

[X«-l;GO TO L;] 

SEMANTICS . 

The define declaration assigns the meaning of the defined identi- 
fiers. An invocation causes the replacement of the invocation by 
the text associated with defined identifier. If the definition of 
a defined identifier included any formal symbols, any appearance of 
these symbols in the text of the definition (but not in a string or 
comment) is replaced by the corresponding actual texts. 



The word COMMENT is recognized in a text. It and all characters up 
to and including the next semicolon are deleted from the text. No 
text may include an incomplete comment. 

In a closed text list, the closed texts are separated by commas, and 
the closed text list is terminated by a right parenthesis or bracket. 
In a closed text, a comma may appear only between matching bracketing 
symbols. No unmatched (unpaired) bracketing may appear. 

The scope of a formal symbol is the text of the definition in which 
the formal symbol appears. 

Bracketing symbols are [ ], ( ) , and the group consisting of: 
DEFINE = # ; 



8-21 



EVENT AND EVENT ARRAY D ECLARATIONS. 

SYNTAX . 

The syntax for (event declaration) is: 

(event declaration) ::= EVENT (event list) 

(event list) ::= (event identifier) (address part) | 

(event list) , (event identifier) (address part) 

(event identifier) ::= (identifier) 

(event array declaration) ::= EVENT ARRAY (event segment list) 

(event segment list) ::= (event segment) | (event segment list) 
, (event segment) 

(event segment) ::= (event array list) [(bound list)] 

(event array list) ::= (event array identifier) (address part) 
| (event array list), (event array identifier) 
(address part) 

(event array identifier) ::= (identifier) 

Examples : 

Event Declaration: 

Event E1,E2 = (3 ,k) 
Event Array Declaration: 

EVENT ARRAY E3 (NONCE) ,E^[ 73] »E5( -2) [ 6] 

SEMANTICS. 

An event declaration defines the identifier of a quantity which may 
be used to record an occurrence. An event array declaration defines 
the identifier of an array of these quantities. The quantities are 
used to report an occurrence to an asynchronous process. 
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INTERRUPT DECLARATIONS . 

SYNTAX . 

The syntax for (interrupt declaration) is: 

(interrupt declaration) ::= INTERRUPT (interrupt list) 

(interrupt list) ::= (interrupt segment) | (interrupt list) 
, (interrupt segment) 

(interrupt segment) ::= (interrupt identifier) : (on part) 
(interrupt identifier) ::= (identifier) 

(on part) ::= ON (event designator), (interrupt statement) 
(interrupt statement) :: = (statement) 
Examples : 

INTERRUPT II: ON El ,A-A+B , 

12: ON EVNT, GO TO LBL; 

SEMANTICS. 

Interrupt declarations provide a means of forcing a process to de- 
part from its current point of control and execute the statement 
associated with the interrupt declaration. 

If the process is inactive at the time of the causation of the 
event, more than one interrupt statement may be pending when the 
process is reactivated. In this case, the interrupt statements 
are processed in the chronological order of the causation of their 
associated events before return is made to the reactivation point. 

An interrupt must be enabled via the ENABLE intrinsic before it 
can have any effect. The DISABLE intrinsic renders the associated 
interrupt (s) ineffective. 
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The scope of an interrupt declaration does not follow the usual ALGOL 
conventions and is defined as follows: 

a. Within any block, two interrupt declarations may not re- 
ference the same event entity except when a block is an 
independent pro cess. 

b. In all other respects, the interrupt declaration conforms 
to the rule of scope related in section 5- 

PRAGMATICS. 

The problems of scope arise from implementation difficulties. If one 
is allowed to redefine the action required of a particular process 
(stack) upon the causation of a particular event," then the stack may 
be required to carry a great deal of information necessary for cor- 
rect redefinition. The rule is this— only one interrupt action per 
event per stack. 

PICTURE DECLARATIONS . 

SYNTAX. 

The syntax for (picture declaration) is as follows: 

(picture declaration) ::= (save or own) PICTURE (picture 
part list) 

(save or own) : := SAVE | OWN 

(picture part list) ::= (picture part) j (picture part list) , 
(picture part) 

(picture part) ::= (picture identifier) ( (picture) ) 

(picture identifier) : := (identifier) 

(picture) ::= (picture symbol) | (picture) (picture symbol) 

(picture symbol) ::= "(hexadecimal string)" | "(BCL string)" | 
, "(ASCII string)" | "(EBCDIC string)" | 
(picture character) (repeat part) | 
(control character) | (introduction) | 
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(skip character) (repeat part) | 
(single picture character) 
(repeat part) ::= (empty) | ( (unsigned integer) ) j (*) 

(control character) ::= 4 | 6- | 7 | 8 I : 

(skip character) : := < | > 

(introduction) ::= (introduction code) (new character) 

(introduction code) ::=b|p|n|c|u|n 

(new character) : := (string character) j » 

(single picture character) !: = j | s 

(picture character) ::=A|q|x|z|e|i|s|d|f| Q 
SEMANTICS. 

The PICTURE declaration provides a construct for generalized gharac 
ter editing. The following editing operations may be performed: 

a. Unconditional character moves . 

b. Move characters with leading zero editing. 

c Move characters with leading zero editing and floating 
character insertion. 

d. Move characters with conditional character insertion. 

e. Move characters with unconditional character insertion. 

f. Move numeric part of characters only. 

g. Skip source characters (forward and reverse), 
h. Skip destination characters forward. 

i. Insert overpunch sign on the previous character. 
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A picture consists of a named string of editing symbols which are 
enclosed in parentheses. The picture editing symbols listed below 
may be combined in any order to perform a wide range of editing 
functions. OWN pictures produce in-line code. 

If the repeat part is empty, it is assumed to be equal to one. If 
the repeat part is of the form (*) , an unsigned integer value is 
expected from an edit repeat list in a string statement. 

The following output characters are assumed for the introduction 
codes. Another character may be substituted for the assumed char- 
acter by the use of the introduction phrase, as defined in the 
syntax. 



Output 
Character 

Space (blank) 



Introduction 

Code 

B 

C 
N 
M 
P 
U 



Normal 
Use 



Replacement of leading zeros. 
Conditional insert characters. 
Unconditional insert character. 
Character insertion if minus. 
Character insertion if plus. 
Floating character insertion. 



The control characters shown below cause the following action: 

a. k - set the default character size of inserted characters 
and strings to h bits. 

b. 6 - set the default character size of inserted characters 
and strings to 6 bits. 

c. 7 - set the default character size of inserted characters 
and strings to 7 bits. 

d. 8 - set the default character size of inserted characters 
and strings to 8 bits. 

e. : re-initiates leading zero replacement. 
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Quoted strings are inserted unconditionally in the destination 
string. The control characters 4,6,7,8 tell the compiler what 
character set to expect. BCL is the default character set. 

The single picture characters perform the following action: 

a. J - if a move with a float ( E or p) has not inserted a 
float character, terminate the float and insert the U 
character, otherwise perform no operation. 

b. S - insert a single P character if the sign is plus, 
otherwise insert a single M character. 

The picture characters listed below perform the following action: 

a. A - move the number of characters specified by the repeat 
field. 



b. 9 - move the numeric part only of the number of characters 
specified by the repeat field. 

c. E — move the niimeri o r>-a-^+ ^-^i" -c~-r- j-i- ^ i, - 

_ -i-i"cin. p^j. o onx^ xui ulie number or charac- 

ters specified by the repeat field. Suppress leading 
zeros by substituting the B character. If the sign is 
plus, insert a P character in front of the first non- 
zero number. Otherwise, insert an M character. End the 
float action. 

d. P - perform a move numeric with leading zeros replaced by 
the B character. Insert a U character in front of the 
first non-zero number. End the float action. 

e. D - if an E or F float has not ended, insert the B charac- 
ter. Otherwise, insert the C character. 

f . Q - back up the number of characters indicated by the re- 
peat part and insert a sign overpunch. 

g. R - if an E or F float has not ended, insert the P charac- 
ter. Otherwise, insert the M character. 
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h> x - insert the N character unconditionally. 

i. X - skip the destination pointer forward by the number of 
characters specified in the repeat field and replace any 
leading zeros with the B character. 

The picture skip characters perforin the following action: 

a. < - skip the source pointer backward by the number of 
characters specified in the repeat field. 

b. > - skip the source pointer forward by the number of 
characters specified in the repeat field. 

VALUE ARRAY DECLARATIONS . 

SYNTAX . 

The syntax for (value array declarations) is: 

(value array declaration) ::= (array save part) (value type) 
VALUE ARRAY (value array part list) 

(array save part) ::= SAVE | (empty) 

(value type) : := REAL | INTEGER | DOUBLE | BOOLEAN 

(value array part list) ::= (value array identifier) *- 
((constant list)) 

(value array identifier) ::= (identifier) 

(constant list) ::= (constant) | (constant list) , (constant) 

(constant) ::= (unsigned integer) ((constant list)) | (number) 
| (logical value) | (string) 

Examples : 

SAVE BOOLEAN VALUE ARRAY DISPLAYOPT-(TRUE , FALSE, FALSE, TRUE, 
FALSE ) 

SEMANTICS. 

The value array declaration defines a 1-dimensional array of values, 
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MONITOR DECLARATIONS . 

SYNTAX. 

The syntax for (monitor declaration) is: 

(monitor declaration) ::= MONITOR (procedure identifier) 
((monitor list)) 

(monitor list) :: = (monitored item) J (monitor list) , 
(monitored item) 

(monitored item) ::= (simple variable) 

SEMANTICS . 

Within the scope of a monitor declaration, the procedure identified 
in the monitor declaration is executed whenever a value is to be 
assigned (via the assignment statement) to a monitored item. The 
procedure must have the same type as the item and must return the 
value to be assigned to the item. The procedure may only have two 
parameters. The parameters must be specified as value. The first 
parameter corresponds to the first eight characters of the identi- 
fier of the monitored item. The second parameter corresponds to the 
value of the expression. 
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SECTION 9 
INTRINSIC S 

GENERAL . 

SYNTAX . 

The syntax for (intrinsic) is as follows: 

(intrinsic) ::= (array intrinsic) | (procedure intrinsic) J 
(function intrinsic) 

(function intrinsic) ::= (arithmetic intrinsic) | (Boolean 
intrinsic) 

(array intrinsic) ::= MEMORY j M | STACK j WORDSTACK | 
STACKVECTOR J REGISTERS 

(procedure intrinsic) ::= EXIT j ALLOW | DISALLOW j PAUSE | 

HEYOU | HALT ) RETURN j TIMER j MOVESTACK J SCANOUT 
110 | MASKSEARCH j LISTLOOKUP j BUZZ | BUZZ CONTROL J 
WAIT | CAUSE | SET | RESET j FREE | DISABLE | ENABLE 
HOLD I STOREITEM 



(arithmetic intrinsic) ::= NAME | SECONDWORD | MYSELF | BINARY 

| JOIN | ENTER | ONES | FIRSTONE | ABS J NAKS | DECIMAL 
| SCANIN j SET | RESET | READLOCK | SIZE | XSIGN 

(Boolean intrinsic) ::= TOGGLE | OVERFLOW | LOCK | UNLOCK | 
BUSY | HAPPENED | FIX | AVAILABLE 

SEMANTICS . 

The (array intrinsic) has the following significance: 

a. MEMORY and M are equivalent. They are 1-dimensional arrays 
referencing memory. 

b-. STACK is a 2-dimensional array. As used by the MCP stack, 
[m,n] refers to the nth word in stack number m. WORDSTACK 
if equivalent to STACK, except that it is a word array. 
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c. STACKVECTOR is a 1-dimensional array. As used by the MCP , 
STACKVECTOR references a particular row of STACK. 

d. REGISTERS is a 1-dimensional array which references the 
various machine registers. For example, REGISTERS [3*0 is 
the current setting of the PIR. 

The following intrinsics generate simple operators in the code 
string which may or may not return a value. 



Intrinsic 



MYSELF 



TOGGLE 



OVERFLOW 



Operator 



WHOI 



ALLOW 


EEXI 


DISALLOW 


DEXL 


PAUSE 


IDLE 


HEYOU 


HEYU 


XSIGN 


SXSN 



RTFF 



ROFF 



Result 

The number of the processor 
which is running. 

Enable external interrupts. 

Disable external interrupts. 

Idle. 

Interrupt other processors. 

Set external-sign flip-flop 
equal to sign of top of stack 
and return the value of the 
top of stack. 

Return value of true-false 
flip-flop. 

Return value of overflow 
flip-flop. 



STOP 



RETURN (n) 



ENTIER(n) 



HALT 



RETN 



NTIA 



Halt. 

Exit and return the value n 
as a result . 

Round the absolute value of n 
down to an integer, return the 
result with proper sign. 
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Intrinsic 



ONES(n) 



ABS(n) 
NABS(n) 



TIMER (n) 



IIO(a,m) 



SET(v ,m) 



Operator 
CBON 



FIRSTONE(n) L0G2 



BSET 



BRST 



SCANIN(n) SCNI 



SINT 



MOVESTACK(n) MVST 



DECIMAL (n) SCRF 



BINARY (n) ICVD 



SCANOUT (n ,m ) SCNO 



SCNO 



DBST 



RESET (v,m) DBRS 
READLOCK(v,m) RDLK 



Result 

Return number of non-zero bits 
in n. 

Return number of most signifi- 
cant non-zero bit in n. 

Return absolute value of n. 

Return negative absolute value 
of n. 

Get the information indicated 
by n and leave it in top of 
stack. 

Set interval timer to value n. 

Transfer control to stack 
number n. 

Convert binary representation 
of n to decimal representation. 

Convert decimal representation 
of n to binary representation. 

n indicates the type of scanout 
and m is the value scanned. 

Initiate I/O using unit speci- 
fied by m and array row a. 

Set bit number m in variable v. 

Reset bit number m in variable v, 

Interchange value of variable v 
and memory address m. 



9-3 



Intrinsic 



JOIN(n,m) 



LISTLOOKUP 
(n,r ,m) 



MASKSEARCH 
(n,r ,m) 



Operator 
JOIN 



LLLU 



SRCH 



Result 

Make a double operand whose 
first word is n and whose 
second is m. 

Search the linked list start- 
ing at word n of the array row 
r until an entry greater than 
m is found. 

Search the array row r for an 
entry equal to n in all bits 
not masked by m. 



The following intrinsics are not guaranteed to produce simple in- 
line code. 

a. LOCK(m) and BUSY(m) are true iff the entity m was previ- 
ously LOCKed; UNLOCK(m) is TRUE iff m was previously UN- 
LOCKed. LOCK leaves m LOCKed. UNLOCKed leaves it UNLOCK - 
ed , and each may be used as a procedure intrinsic, in which 
case the value returned by them is ignored. 

BUZZ(m) and BUZZCONTROL(m) cause the current process to 
suspend operation until the entity m is UNLOCKed by some 
other process. The variable m is LOCKed and the process 
allowed to continue. 

It is guaranteed that if more than one process attempts to 
LOCK or BUZZ an entity previously UNLOCKed, only one pro- 
cess can succeed. 

The variable m must be a variable or a queue designator. 
If the entity m is a queue designator, the LOCKed algo- 
rithm must have been specified for m. 

b. WAIT(e) deactivates the current process until the event e 
is CAUSEd. CAUSE(e) sets the event e to HAPPENED, acti- 
vates processes waiting on e, and interrupts processes 
which have interrupt declarations referencing e. 
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SET(e) and RESET(e) set the event e to HAPPENED and not 
HAPPENED respectively. 

FIX(e) and FREE(e) make e not available and available 
respectively. Fix(e) returns the value of the previous 
state of availability. 

HAPPENED(e) is TRUE if e has happened and AVAILABLE(e) is 
TRUE iff e is available. 

c. ENABLE (int) and DISABLE (int) cause the interrupt int to 
be enabled and disabled respectively. 

HOLD causes the current process to be deactivated. A 
process deactivated by a HOLD is reactivated only if an 
event is caused which corresponds to some interrupt de- 
clared by the process. 

d. SECOND¥ORD(ent ) , where ent is an event or a double pre- 
cision operand, returns to the second word of ent. 

e. STORE ITEM (fitm, a itm) passes the actual item aitm to the 
formal item fitm. 

f. NAME(var) returns the address of the variable var. 
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INDEX 

METALINGUISTIC VARIABLES 



The syntactical definition of each ESPOL metalinguistic variable 
is found in the pages indicated. 



{actual item list) 5-9 
{actual parameter) 7-^ 
(actual parameter list) 7-^ 
(actual parameter part) 7 - ^ 
(actual text part) 8-20 
(adding operator) 5-1 
(address) 8-3 
(address couple) 8-3 
(address part) 8-3 
(algorithm) 8-12 
(algorithm identifier) 8-12 
(algorithm list) 8-11 
(algorithm part) 8-11 
(alpha string) 3-^ 
(arithmetic assignment) 5-1 
(arithmetic assignment 

statement) 7-8 
(arithmetic expression) 5-1 
(arithmetic field assignment) 7-8 
(arithmetic intrinsic) 9-1 
(arithmetic item) 5-2 
(arithmetic operator) 2-1 
(arithmetic relation) 5-H 
(arithmetic relational) 5-H 
(arithmetic source) 7 - H 
(arithmetic transfer part) 7-10 
(arithmetic variable) 5-2 
(array assignment) 5-1^ 
(array assignment statement) 7-8 
(array declaration) 8-6 
(array designator) 5-l4 
(array expression) 5-13 



(array field assignment) 7-8 
(array identifier) 4-1 
(array identifier list) 8-16 
(array intrinsic) 9-1 
(array item) 5-1^+ 
(array kind) 8-6 
(array list) 8-6 
(array part) 5-12 
(array primary) 5-13 
(array row) 5-12 
(array save part) 8-28 
(array segment) 8-7 
(array specification) 8-16 
(array specifier) 8-16 
(array specifier list) 8-16 
(array type) 8-7 
(array variable) 5-1^ 
(ASCII code) 3-4 
(ASCII string) 3-4 
(assignment statement) 7-8 

(base) 5-2 

(basic component) 3-1 
(basic statement) 7-2 
(basic symbol) 2-1 
(BCL character) 3-4 
(BCL code) 3-4 
(BCL string) 3-4 
(binary character) "}-k 
(binary code) 3-4 
(binary string) 3-4 
(block) 6-1 



one 



INDEX (cont) 
METALINGUISTIC VARIABLES 



(block head) 6-1 

(Boolean algorithm identifier) 

8-12 
(Boolean assignment) 5-6 
(Boolean assignment statement) 

7-8 
(Boolean expression) 5-6 
(Boolean expression list) 5-7 
(Boolean factor) 5-6 
(Boolean field assignment) 7-8 
(Boolean field designator) 5-6 
(Boolean field operand) 5-6 
(Boolean function designator ) 5-7 
(Boolean intrinsic) 9-1 
(Boolean item) 5-6 
(Boolean layout) 5~? 
(Boolean primary) 5-6 
(Boolean secondary) 5-6 
(Boolean term) 5-6 
(Boolean variable) 5-7 
(bound) 8-7 
(bound list) 8-7 
(bound specifier) 8-16 
(bracket) 2-2 

(case head) 7-3 
(case statement) 7-3 
(character) 1-3 
(character size) 5-12 
(closed text) 8-20 
(closed text list) 8-20 
(compound statement) 6-1 
(compound tail) 6-1 



(concatenate operator) 2-1 
(condition) 7-H 
(conditional iteration) 7-6 
(conditional statement) 7-1 
(constant) 8-28 
(constant list) 8-28 
(control character) 8-25 
(controlled variable) 7-6 
(correct count) 7-1° 

(decimal fraction) 3-2 
(decimal number) 3-2 
(declaration) 8-1 
(declarator) 2-2 
(define declaration) 8-19 
(defined identifier) 8-19 
(definition) 8-19 
(definition list) 8-19 
(delimiter) 2-1 
(designational expression) 

5-10 
(designational expression 

list) 7-2 
(destination) 7-10 
(digit) 1-3 
(digit count) 7-10 
(displacement) 8-3 
(do statement) 7-6 
(dummy statement) 7-2 

(EBCDIC code) 3-k 
(EBCDIC string) 3-^ 
(empty) 2-1 
(entry description) 8-11 
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(empty expression) 5-9 
(entry item list) 8-11 
(event array declaration) 8-22 
(event array identifier) 8-22 
(event array item) 4-4 
(event array list) 8-22 
(event declaration) 8-22 
(event designator) 4-4 
(event identifier) 8-22 
(event item) 4-4 
(event list) 8-22 
(event segment) 8-22 
(event segment list) 8-22 
(exponent part) 3-2 
(expression) 5-1 
(expression list) 5-2 

(factor) 5-1 

(field) 8-9 

(field declaration) 8-9 

(field designator) 5-2 

(field identifier) 8-9 

(field operand) 5-2 

(field part) 8-9 

(field part list) 8-9 

(field value) 5-2 

(field value list) 5-2 

(field value part) 8-9 

(final count) 7-10 

(final part) 7-6 

(for clause) 7-6 

(for part) 7-6 

(formal parameter) 8-15 

(formal parameter list) 8-15 



(formal parameter part) 8-15 
(formal symbol) 8-20 
(formal symbol list) 8-20 
(formal symbol part) 8-20 
(function designator) 7-4 
(function identifier) 7-4 
(function intrinsic) 9-1 

(general component) 4-1 
(go to statement) 7-2 

(hexadecimal character) 3-k 
(hexadecimal code) 3-4 
(hexadecimal string) 3-4 

(identifier) 1-2, 3-1 

(identifier list) 8-16 

(IF clause) 7-1 

(implication) ^-G 

(index bound) 8-11 

(initial part) 7-6 

(initial value) 8-3 

(initialized array) 8-7 

(integer) 3-2 

(integer algorithm identifier) 

8-12 
(internal name part) 8-11 
(interrupt declaration) 8-23 
(interrupt identifier) 8-23 
(interrupt list) 8-23 
(interrupt segment) 8-23 
(interrupt statement) 8-23 
(intrinsic) 9-1 
(introduction) 8-25 
(introduction code) 8-25 
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(invalid character) 1-3 

(invisible item list) 8-11 

(invocation) 8-20 

(item) 4-3 

(item identifier) 4-3 

(item list) 8-11 

(iteration clause) 7-6 

(label) 7-1 

(label declaration) 8-5 

(label identifier) 8-5 

(label list) 8-5 

(layout) 5-2 

(layout declaration) 8-9 

(layout field) 8-9 

(layout identifier) 8-9 

(layout item) 8-9 

(layout item list) 8-9 

(layout part) 8-9 

(layout part list) 8-9 

(letter) 1-3 

(level) 8-3 

(local or own type) 8-6 

(lock specification) 8-12 

(logical operator) 2-1 

(logical value) 2-1 

(monitor declaration) 8-28 
(monitor list) 8-28 
(monitored item) 8-28 
(most expressions) 5-15 
(multiplying operator) 5-1 

(new character) 8-25 
(number) 3-2 
(numeric string) 3-3 



(octal character) 3-4 
(octal code) 3-4 
(octal constant) 3-2 
(octal digit) 3-2 
(octal number) 3-2 
(octal string) 3-4 
(on part) 8-23 
(operator) 2-1 

(parameter delimiter) 7-4 
(picture) 8-24 
(picture character) 8-25 
(picture declaration) 8-24 
(picture designator) 7-H 
(picture identifier) 8-24 
(picture part) 8-24 
(picture part list) 8-24 
(picture symbol) 8-24 
(pointer assignment) 5-12 
(pointer designator) 5-12 
(pointer expression) 5-H 
(pointer expression list) 5-12 
(pointer identifier) 5-12 
(pointer parameters) 5-12 
(pointer primary) 5-12 
(pointer relation) 5-H 
(pointer source) 7-10 
(pointer variable) 5-12 
(primary) 5-1 
(procedure body) 8-16 
(procedure declaration) 8-15 
(procedure heading) 8-15 
(procedure identifier) 8-15 
(procedure intrinsic) 9-1 
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(procedure statement) 7-4 
(procedure type) 8-15 
(program) 6-1 

(quaternary character) 3-4 
(quaternary code) 3-4 
(quaternary string) 3-4 
(queue array declaration) 8-11 
(queue array head) 8-11 
(queue array identifier) 8-12 
(queue assignment) 7-8 
(queue body) 8-11 
(queue declaration) 8-11 
(queue designator) 5-9 
(queue head) 8-11 
(queue identifier) 8-12 
(queue name) 5-9 

(reference algorithm identifier) 

8-12 
(reference array name) 5-9 
(reference assignment) 5-9 
(reference designator) 5-9 
(reference expression) 5-9 
(reference expression list) 5-9 
(reference identifier) 5-9 
(reference item) 5-9 
(reference part) 4-3 
(reference relation) 5-11 
(reference relational) 5-11 
(relation) 5-H 
(relational operator) 2-1 
(repeat parameters) 7-H 
(repeat part) 8-25 



(replacement operator) 2-1 

(row) 5-12 

(row designator) 5-12 

(save or own) 8-24 

(save part) 8-15 

(scan count) 7-10 

(scan part) 7-10 

(second name) 8-11 

(separator) 2-1 

(sequential operator) 2-1 

(sign) 3-2 

(simple arithmetic expression) 

5-1 
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